Top 10k strings from MicroHobby Semanal - Issue 093-096 (1986)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
11 ;"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjj";
4 x$(posx,v)
4 ;"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjj":
3 y2=y1-(len-1
3 y2=y1+(len-1
3 x2=x1-(len-1
3 x2=x1+(len-1
3 x$(v,posy)
3 ;"jjjjjjjjjj";
3 ;"jjjjjjjjj";
3 ;"jjjjjjjj";
3 ;"jjjjjjj";
3 ;"jjjjjj";
2 x$(posx-v,posy-v)
2 x$(posx-v,posy+v)
2 x$(posx,posy)
2 x$(posx,g)=a$(c):
2 x$(posx+v,posy-v)
2 x$(posx+v,posy+v)
2 x$(g,posy)=a$(c):
2 p$(f)((v+1
2 bright;" ":
2 ;"kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk"
2 ;"kkkkkkkkkkkkkkkkkkk":
2 ;"jjjjjjjjjjjjjjjjjjjjjjjjjjjjjj"
2 ;"jjjjjjjjjjjjjjjjjj";
2 ;"jjjjjjjjjjj";
2 ;"WWWWWK":
2 ;" PULSA ""F"" PARA OTRA SOPA"
2 (posy-len)+1
2 (posx-len)+1
2 (len+posy)-1
2 (len+posx)-1
2 "
2
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzyyyyyyyyyyyyzzzxxxxxxxxxxxxxzzxzyyyyyyyyyyyyzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxyxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 x$(posx-g,posy-g)=a$(g+1
1 x$(posx-g,posy+g)=a$(g+1
1 x$(posx+g,posy-g)=a$(g+1
1 x$(posx+g,posy+g)=a$(g+1
1 x$(f,g)=32
1 v,g;x$(g,v):
1 posy=posy-1
1 posy=posy+1
1 posy=npal+9
1 posy=npal+8
1 pantalla
1 p$(npal,10
1 p$(f)=p$(g)
1 p$(f)((posy+1
1 p$(f)((posx+1
1 fil=(y1+f+4
1 e$(g)(f)=x$(f,g):
1 e$(f);" ";f;"- ";p$(f):
1 col=((x1+f)-1
1 a$="EXPRESS":
1 a$=" Este programa a partir de laspalabras entradas (max.10 y lng.max.10 letras),confecciona una sopa de letras en la que las pa-labras pueden estar horizontalesverticales, en diagonal e inver-tidas. Una vez hecha la sopa podemosaveriguar la posicion de las pa-labras moviendo el cursor que aparece junto a las palabras y pulsando la tecla '0'. Cuando se hayan encontrado las palabras o para cancelar el juego, pulsar la tecla 'F'. Para imprimir la sopa por im-presora, pulsar la tecla 'P'."
1 Z$(M,N)=X$:
1 Z$(M,N)=" ":
1 Y$=Z$(M,N+1
1 X$=Z$(M,N):
1 X$(v,posy)
1 Sopaletra
1 Scalybur S
1 PROGRAMAS INCLUIDOS EN
1 PRESENTACION
1 P$="F>E*AE'B)&%00<=?(>0 !0E0E?0=0&%*A0'00B) !0<?(0E00&%>0*AE'B) !?=00E(>0&%00<?0=00 #@0E0@00@,C0+@E@0@0$"
1 O$="F$#(),.*'&%;$:#$-7# !:98;$877&%(),.,,*' !;#$-7#89&%89(),.*' !#78;9-7:&%$:#;$#87 35<<55<554/6055<<5<2"
1 NUMERO DE PALABRAS
1 MOSTRAR PALABRA
1 LOCALIZACION PALABRAS
1 LIA,COA;" "
1 LI=LI+(C1=1
1 LI,CO;"ab";
1 Hobby Press
1 EXPLICACIONES
1 ENTRADA DATOS
1 D.L.: M-36598-84
1 Castellano
1 Cargador Q
1 COLOCACION DE PALABRAS
1 CODIGO MAQUINA
1 CO=CO+(D1=1
1 CINTA 24 CARA A
1 ;Z$(M,N);Z$(M,N+1
1 ;"lllllllllllllllllll":
1 ;"llllllllllllllll":
1 ;"kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk":
1 ;"kkkkkkkkkkkkkkkkkkkk"
1 ;"kkkkkkkkkkkkkkkkkk";
1 ;"kkkkkkkk":
1 ;"jjjjjjjjjjjjjjjjjjjjjjjjj";
1 ;"jjjjjjjjjjjjjjjjjjjjjjjj@ ?jjj";
1 ;"jjjjjjjjjjjjjjjjjjjjjjjj";
1 ;"jjjjjjjjjjjjjjjjjjjjjj? ?@ ";
1 ;"jjjjjjjjjjjjjjjjjj@ ?@ @";
1 ;"jjjjjjjj":
1 ;"jjjjjjj?@ @ @ ?jjjjjjjjjjjjj";
1 ;"jjjjjj?@? @?jjjjjj@ @ ? @? @";
1 ;"jjjj? @@";
1 ;"jjj@ @@ @ @? @ ? @ @";
1 ;"jjj@ ?jjjjjjjjjj? ? @jjjjj? @?";
1 ;"jjj?@ @?jjjjjjjjjjjjj@@ @";
1 ;"jj? @ @jjjj? @j@? @";
1 ;"j?j @@ ?jjjjj @@ @ @? @@@ @";
1 ;"________"
1 ;"PALABRAS";
1 ;"NBV-1985 SOPAS EXPRESS "'''
1 ;"Lo siento pero he de repetirlo!!":
1 ;"HAS MUERTO":
1 ;"CARGANDO UDG"
1 ;"@@? @? @j@ @";
1 ;"@?jjjjjjjjjjjjjj @? @ @jjjjjj@";
1 ;"@?@ @?@jjjj@ ? @ @ ?@?@ ";
1 ;"@?@ @j@?@ ? @";
1 ;"@? @?jjjjjjjjj";
1 ;"@? @??j@ @ @?j";
1 ;"@? @ ?@ @ @? ? ? @ @";
1 ;"@ jj@ ?jjjj@ @ ? ?jj";
1 ;"@ @ @?@jjjjjjjjjjjjjjjjjj";
1 ;"@ @ @ ??@? @";
1 ;"@ ?@@ ?jjjjjjjjjjjjjjjjjjjjj@ ";
1 ;"@ @@jjjjjjjj":
1 ;"@ @@?@? ?@jjjj@ @?";
1 ;"@ @@? @@";
1 ;"@ @?@@?jjjjjjjjjjjjjjj@@";
1 ;"@ @ ?@?@ @";
1 ;"@ @";
1 ;"@ @ @ @ @";
1 ;"@ @ ?";
1 ;"@ @ @?j@ @@ @";
1 ;"?@ @ @?@?jjjjj? @ ?";
1 ;">>>> ESTA PALABRA YA EXISTE <<<<":
1 ;"#################":
1 ;" POR COMPONER"
1 ;" PALABRA";("S "
1 ;" ME FALTA";("N "
1 ;" ESPERA UN MOMENTO ";
1 ;" @ ? @ @";
1 ;" YA FALTA POCO ";
1 ;" PULSA PARA SEGUIR":
1 ;" PARA EL CASSETTE "
1 ;" IMPRIMIENDO ..."
1 ;" ":
1 ;" ":
1 0
1 );(" "
1 )+((x1-f)-1
1 (LI,CO)=71
1 "Palabra numero ";(f);": ";
1 "MicroHobby Semanal numeros 93 a 96
1 "Cuantas palabras? (Max. 10): ";npal:
1 "CERO ","UNA ","DOS ","TRES ","CUATRO ","CINCO ","SEIS ","SIETE ","OCHO ","NUEVE "
1 NBV-1985 *SOPAS*
1 IMPRESION DE SOPA
1 I$=" ":
1 ESTA CINTA UTILIZA
1 O LOAD "<NOMBRE>"
1 PARA CARGAR LOS
1 LOAD ""
1